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DIRECTORY 
P5ADefs: 



FROM "p5adefs"; 



FOpTable: PROGRAM EXPORTS P5ADefs - 
BEGIN 

-- generated by OpDefsGenerator 21-Jun-78 21:12 

Q: TYPE - PRIVATE RECORD [ 

push: [0..3], pop: C0..7], length: [0..3], mark: BOOLEAN]; 
T: BOOLEAN ■ TRUE; F: BOOLEAN « FALSE; 



OpParms: PRIVATE ARRAY [0 


.256) OF Q - 


[ 


NOOP 








Q[0,0.0,F] 
LG 


Q[0,0,0,F] 
S6 


QC0.0.0.F3. 
LL 


Q[0.0,0,F3, 
SL 


Q[1.0.1,F] 
LI 


Q[0.1.1,F] 
LGD 


QC1,0.1.F3. 
SGD 


Q[0,i.i,F3. 

LLD 


Q[1.0,1.F] 
SLD 


Q[2.0,1.F3 
R 


Q[0.2,1.F3. 
W 


Q[2,0,1,F3. 
RF 


Q[0,2.1.F] 
WF 


Q[l.l.l.F] 
RD 


Q[0,2.1.F3. 
WD 


Q[1,1.2,F3. 
RSTR 


Q[0,2,2,F] 
WSTR 


Q[2,1.1.F3 
RXL 


QC0,3.1.F3, 
WXL 


Q[1.2.1,F], 
RXG 


Q[0.3.1,F] 
WXG 


Q[1,1.2,F] 
RIG 


QC0.2.2.F3, 
RIL 


Q[1.1.2,F3. 
WS 


Q[0,2.2,F] 
WSF 


QC1.0.2.F] 
WSD 


Q[1,0.2.F3, 
RILF 


Q[0,2,1.F3. 
WIG 


Q[0.2.2,F] 
WIL 


Q[0.3,1.F] 
RII 


Q[1.0.3.F3. 
RIIL 


Q[0.1,2.F3, 
PS 


Q[0,1,2,F] 
PSD 


. Q[1.1.2,F] 
PSF 


QCi.i,2.F3. 

PL 


Q[1.2,1,F3, 


Q[1.3,1,F] 


Q[1.2,2,F] 


Q[i.i.i.F3. 


Q[0,0,0.F3, 


Q[0.O,0,F] 


Q[O.O.O.F] 


Q[0,0,0.F3. 


Q[0,0,0,F3, 


Q[0.0,O.F] 


Q[0.0.0,F] 


0[0.0,0,F3, 


Q[0.0.0.F3, 


Q[0,O.O.F] 


Q[0.0,0,F] 


0C0.0.0.F3, 


Q[0,0,0.F3, 


Q[0,0,0,F] 


Q[0,0.0.F3 


QC0.0,0,F3. 


QC0.0.0.F3. 


Q[0.0.0,F] 


QCO,0,O.F] 


Q[0.0,0.F3. 


Q[0.0.0.F3, 


Q[0.0,O.F] 
ADD 


Q[0,O.O.F] 
SUB 


Q[0.0,0,F3, 
MUL 


Q[0,O.0.F3, 
DIV 


Q[1,2.0,F] 
LDIV 


Q[1,2,0.F] 
SDIV 


QC1,2,0.F3. 
NEG 


Q[1.2.0,F3. 
AND 


Q[1.3,0,F] 
OR 


Q[1.2,0.F3 
XOR 


Q[i,i.o.F3, 

SHIFT 


Q[1.2.0,F3. 
PUSH 


Q[1.2.0.F] 
POP 


Q[1.2.0,F] 
EXCH 


Q[1,2,0,F3, 
CATCH 


Q[1,0,0,F], 
EFC 


Q[0.1.0,F] 
LFC 


Q[2.2,0.F] 
SFC 


QC0.0.1,F3. 
RET 


Q[0,0.1.F3. 
PORTO 


Q[0,0,1,F] 
PORTI 


Q[0.1,0,F3 
KFCB 


Q[0.0,0.F3, 
BLT 


Q[0,1.0.F3. 
ALLOC 


Q[0,O.O.F] 
FREE 


0[0,0,1,F3 
STOP 


QC0.3,O.T3, 
LLK 


Q[1,1.0,F]. 


Q[0,1,0.F] 
BITBLT 


0C0,0.0.F3 
STARTIO 


QCi.o,i,F3. 

DST 


Q[0.0,0,F]. 
LST 


Q[0,1,O.T] 
LSTF 


QC0,i,0,F3 

WR 


Q[0.0,1.F3, 
RR 


Q[0,0.1,F], 
BRK 


Q[0,0,1.F] 
BLTR 


Q[0,1,1.F3 
LINKB 


Q[1.0.1,F3. 
DESCB 


Q[0,0.0,F]. 
DESCBS 


Q[0,3,0,T] 
FDESCBS 


QE0.i.i,F3 

MAX 


QC1.0.1.F3, 
MIN 


Q[l,l.l,F]. 
UMAX 


QCO.l.l.F] 
UMIN 


Q[1.2.0,F3 
STFORB 


QC1.2,0,F3, 
STFORW 


QC1.2.0,F], 
ENDFOR 


Q[1,2,0,F] 
UENDFOR 


0[0,2.1.F3 
GADRB 


Q[0.2,1,F3, 
LADRB 


Q[0,0,0.F3. 
DEC 


Q[0,0.0,F] 
INC 


Q[1,0.1.F3 
DUP 


Q[1.0.1,F3. 
J 


0[1,1.0.F3. 
JDREL 


Q[1,1,0.F] 
JREL 


QC2,1.0,F3 
ADD2 


Q[0,0,0.F3, 
ADDSB 


Q[0,4,O.T3, 
DBL 
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Q[0.2,0,T]. Q[1.1.0,F] 

DADD DSUB 

Q[2.4,0,T]. QC2,4,0,T] 

DWDC RFC 

Q[O.O.O.F], Q[1.1.2,F] 

LINT 

Q[2,1,0,F3. QCO.O.O.F] 

ME MRE 

0[1,1,0.T], Q[1.2.0.T] 

NOTIFY BCAST 

QCO.l.O.T], Q[0.1,0,T] 

MEL MREL 

Q[1.2,0.T], Q[1,4,0.T] 

NOTIFYL BCASTL 

Q[0.2.0.T]. Q[0,2.0,T] 

RL WL 

Q[1,2.1,F]. Q[0.3,1,F] 

WDL RXLL 

Q[0,4.1,F], 0[1.1,2.F] 

WXGL RILL 

Q[0,2.2,F], Q[1.0,2.F3 

WIGL RSTRL 

Q[0.1.2.F], Q[1,3,1.F] 

WFL BLTL 

Q[0.3.2,F], 0[0,5.0,T] 

LP BLTC 

Q[2.1.0,F], Q[0.3.0.T] 

Q[0,0.0,F3, Q[O,0.O,F] 

Q[0,0.0.F3, Q[0.0,0,F] 

Q[0.0,O.F], Q[0,0,O.F] 

Q[0,0,0,F], QCO.O.O.F] 

Q[0.0.0,F], QCO.O.O.F] 

QCO.O.O.F]. QCO.O.O.F] 

QCO.O.O.F]. QCO.O.O.F] 

QCO.O.O.F]. QCO.O.O.F] 

QCO.O.O.F]. QCO.O.O.F] 

QCO.O.O.F]. QCO.O.O.F] 

QCO.O.O.F]. QCO.O.O.F] 

QCO.O.O.F]. QCO.O.O.F] 

QCO.O.O.F]. QCO.O.O.F] 

QCO.O.O.F], QCO.O.O.F] 

QCO.O.O.F]. QCO.O.O.F] 

QCO.O.O.F]. QCO.O.O.F] 

QCO.O.O.F]. QCO.O.O.F] 

QCO.O.O.F]. QCO.O.O.F] 

QCO.O.O.F], QCO.O.O.F] 

QCO.O.O.F]. QCO.O.O.F] 



QCl.l.l.F 

DCOMP 
QC1.4,0.T 

RFS 
QC1.2.2.F 

QCO.O.O.F 

MXW 
QC0.3.0,T 

REQUEUE 
QC0.3.0.T 

MXWL 

QC0.5.0.T 

REQUEUE 

QC0,5.0,T 

RD 

QC2.2.1,F 

WXL 

QC0.2.2.F 

WIL 

QC0.1.2.F 

WSTR 

QC0,4.1.F 

RFS 

QC1.3.2.F 

BLTC 

QC0,4.0.T 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 

QCO.O.O.F 



QCl.l.O.F] 

IWDC 

QCO.O.O.F] 

WFS 

QC0.3.2.F] 

QCO.O.O.F] 

MXD 

QCO.l.O.T] 

QCO.O.O.F] 

MXDL 

QC0,2.0.T] 

QCO.O.O.F] 

QCO.O.O.F] 
RXGL 

QC1.1.2.F] 
RIGL 

QC1.0.2.F] 
RFL 

QC1.2.2.F] 
WFSL 

QC0.4.2.F] 

QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QtO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F] 
QCO.O.O.F]]; 



PushEffect: PUBLIC PROCEDURE Cb: CO.. 256)] RETURNS CC0..3]] 
BEGIN 

RETURNCOpParnisCb].push] 
END; 

PopEffect: PUBLIC PROCEDURE Cb: CO.. 256)] RETURNS C[0..7]] ■ 
BEGIN 
RETURNCOpParmsCb].pop] 
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END; 



NumberOfParams: PUBLIC PROCEDURE [b: [0..256)] RETURNS [[0..3]] 
BEGIN 

RETURN[OpParms[b]. length] 
END; 

MinimalStack: PUBLIC PROCEDURE [b: [0..256)] RETURNS [BOOLEAN] • 
BEGIN 

RETURN[OpParms[b].mark] 
END; 

END. 



